Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d3/db4less3.arc/INVOICE.FRG

Text File | 1990-06-16 | 7.0 KB | 385 lines

* Program............: D:\DBSYS\CLASSES\BT4W\INVOICE.FRG
* Date...............: 11-17-88
* Versions...........: dBASE IV, Report 1
*
* Notes:
* ------
* Prior to running this procedure with the DO command
* it is necessary use LOCATE because the CONTINUE
* statement is in the main loop.
*
*-- Parameters
PARAMETERS gl_noeject, gl_plain, gl_summary, gc_heading, gc_extra
** The first three parameters are of type Logical.
** The fourth parameter is a string.  The fifth is extra.
PRIVATE _peject, _wrap

*-- Test for no records found
IF EOF() .OR. .NOT. FOUND()
   RETURN
ENDIF

*-- turn word wrap mode off
_wrap=.F.

IF _plength < 2
   SET DEVICE TO SCREEN
   DEFINE WINDOW gw_report FROM 7,17 TO 11,62 DOUBLE
   ACTIVATE WINDOW gw_report
   @ 0,1 SAY "Increase the page length for this report."
   @ 2,1 SAY "Press any key ..."
   x=INKEY(0)
   DEACTIVATE WINDOW gw_report
   RELEASE WINDOW gw_report
   RETURN
ENDIF

_plineno=0          && set lines to zero
*-- NOEJECT parameter
IF gl_noeject
   IF _peject="BEFORE"
      _peject="NONE"
   ENDIF
   IF _peject="BOTH"
      _peject="AFTER"
   ENDIF
ENDIF

*-- Set-up environment
ON ESCAPE DO prnabort
IF SET("TALK")="ON"
   SET TALK OFF
   gc_talk="ON"
ELSE
   gc_talk="OFF"
ENDIF
gc_space=SET("SPACE")
SET SPACE OFF
gc_time=TIME()      && system time for predefined field
gd_date=DATE()      && system date  "    "    "     "
gl_fandl=.F.        && first and last page flag
gl_prntflg=.T.      && Continue printing flag
gl_widow=.T.        && flag for checking widow bands
gn_length=LEN(gc_heading)  && store length of the HEADING
gn_level=2          && current band being processed
gn_page=_pageno     && grab current page number

*-- Initialize group footer field variables
r_foot1=.F.
r_foot2=.F.

*-- Initialize calculated variables.
STRDATE=""
COMPDAYS=FLOAT(0)

*-- Set up procedure for page break
IF _pspacing > 1
   gn_atline=_plength - (_pspacing + 1)
ELSE
   gn_atline=_plength - 1
ENDIF
ON PAGE AT LINE gn_atline EJECT PAGE

*-- Print Report

PRINTJOB

gl_newpage=.T.      && ok to begin band on new page

*-- Initialize group break vars.
r_mvar4=JOBDESC
r_mvar5=FUNDESC

*-- Initialize summary variables.
FUNHOURS=0
JOBHOURS=0
r_msum1=0

*-- Assign initial values to calculated variables.
STRDATE='February 15, 1989'
COMPDAYS=compdate-startdate

IF gl_plain
   ON PAGE AT LINE gn_atline DO Pgplain
ELSE
   ON PAGE AT LINE gn_atline DO Pgfoot
ENDIF

DO Pghead

gl_fandl=.T.        && first physical page started

DO Grphead

*-- File Loop
DO WHILE FOUND() .AND. .NOT. EOF() .AND. gl_prntflg
   DO CASE
   CASE .NOT. (JOBDESC = r_mvar4)
      gn_level=4
   CASE .NOT. (FUNDESC = r_mvar5)
      gn_level=5
   OTHERWISE
      gn_level=0
   ENDCASE
   *-- test whether an expression didn't match
   IF gn_level <> 0
      DO Grpfoot WITH 100-gn_level
      DO Grpinit
   ENDIF
   *-- Repeat group intros
   IF gn_level <> 0
      DO Grphead
   ENDIF
   DO Upd_Vars
   r_foot1=FUNDESC
   r_foot2=BIDPRICE
   CONTINUE
ENDDO

IF gl_prntflg
   gn_level=3
   DO Grpfoot WITH 97
ELSE
   DO Reset
   RETURN
ENDIF

ON PAGE

ENDPRINTJOB

DO Reset
RETURN
* EOP: D:\DBSYS\CLASSES\BT4W\INVOICE.FRG

*-- Update summary fields and/or calculated fields in the detail band.
PROCEDURE Upd_Vars
*-- Summary calculation - Sum
FUNHOURS=FUNHOURS+HOURS
*-- Summary calculation - Sum
JOBHOURS=JOBHOURS+HOURS
*-- Summary calculation - Sum
r_msum1=r_msum1+HOURS
RETURN
* EOP: Upd_Vars

*-- Set flag to get out of DO WHILE loop when escape is pressed.
PROCEDURE prnabort
gl_prntflg=.F.
RETURN
* EOP: prnabort

*-- Reset group break variables.  Reinit summary
*-- fields with reset set to a particular group band.
PROCEDURE Grpinit
IF gn_level <= 5
   FUNHOURS=0
ENDIF
IF gn_level <= 4
   JOBHOURS=0
ENDIF
IF gn_level <= 4
   r_mvar4=JOBDESC
ENDIF
IF gn_level <= 5
   r_mvar5=FUNDESC
ENDIF
RETURN
* EOP: Grpinit

*-- Process Group Intro bands during group breaks
PROCEDURE Grphead
IF EOF()
   RETURN
ENDIF
gl_widow=.T.         && enable widow checking
IF gn_level <= 4
   DO Head4
ENDIF
gn_level=0
RETURN
* EOP: Grphead.PRG

*-- Process Group Summary bands during group breaks
PROCEDURE Grpfoot
PARAMETER ln_level
IF ln_level >= 95
   DO Foot95
ENDIF
IF ln_level >= 96
   DO Foot96
ENDIF
RETURN
* EOP: Grpfoot.PRG


PROCEDURE Pghead
*-- Print HEADING parameter ie. REPORT FORM <name> HEADING <expC>
IF .NOT. gl_plain .AND. gn_length > 0
   ?? gc_heading FUNCTION "I;V"+LTRIM(STR(_rmargin-_lmargin))
   ?
ENDIF
RETURN
* EOP: Pghead

PROCEDURE Head4
IF gn_level=1
   RETURN
ENDIF
IF .NOT. gl_newpage
   gl_newpage=.T.
   EJECT PAGE
ENDIF
STRDATE='February 15, 1989'
COMPDAYS=compdate-startdate
IF 32 < _plength
   IF (gl_widow .AND. _plineno+31 > gn_atline) ;
   .OR. (gl_widow .AND. _plineno+31 > gn_atline)
      EJECT PAGE
   ENDIF
ENDIF
?? "ASSOCIATED MANAGEMENT CONSULTANTS" AT 23
?
?? "1170 WELDSTONE COURT" AT 29
?
?? "SUITE 2205" AT 34
?
?? "ATLANTA, GA 30350" AT 31
?
?
DEFINE BOX FROM 30 TO 48 HEIGHT 5 DOUBLE
?
?
?? "I N V O I C E" AT 33
?
?
?
?
?? "INVOICE DATE:" AT 0,
?? STRDATE FUNCTION "T" PICTURE "XXXXXXXXXXXXXXXXXXXXXXXX" AT 15
?
?
DEFINE BOX FROM 4 TO 54 HEIGHT 7 SINGLE
?
?
?? "CUSTOMER:" AT 6,
?? CUSTNAME FUNCTION "T" AT 17
?
?? ADDRESS FUNCTION "T" AT 17
?
?? CITY FUNCTION "T" AT 17,
?? ", " ,
?? STATE FUNCTION "T" ,
?? "  " ,
?? ZIP FUNCTION "T"
?
?
?
?
DEFINE BOX FROM 4 TO 71 HEIGHT 7 SINGLE
?
?
?? "JOB:" AT 6,
?? JOBDESC FUNCTION "T" AT 11
?
?
?? "STARTING DATE:" AT 6,
?? STARTDATE AT 21,
?? "COMPLETION DATE:" AT 33,
?? COMPDATE AT 50,
?? "DAYS:" AT 61,
?? COMPDAYS PICTURE "999" AT 67
?
?
?
?
?? "ACTIVITY SUMMARY:" AT 6
?
?? "HOURS" AT 57
?
?
gl_newpage=.F.
RETURN

gl_newpage=.F.

gl_newpage=.F.

PROCEDURE Foot95
?? r_foot1 FUNCTION "T" AT 16,
?? FUNHOURS PICTURE "999.99" AT 56
?
?
gl_newpage=.F.
RETURN

PROCEDURE Foot96
?? "=========" AT 53
?
?? "TOTAL ALL ACTIVITIES" AT 28,
?? JOBHOURS PICTURE "99,999.99" AT 53
?
?
?
?
DEFINE BOX FROM 4 TO 74 HEIGHT 5 DOUBLE
?
?
?? "TOTAL AMOUNT DUE:" AT 24,
?? r_foot2 PICTURE "999,999.99" AT 43
?
?
?
?
?
?? " THANKS FOR YOUR SUPPORT" AT 27
?
?
?
gl_newpage=.F.
RETURN

PROCEDURE Pgfoot
PRIVATE _box
gl_widow=.F.         && disable widow checking
EJECT PAGE
gl_newpage=.T.
*-- is the page number greater than the ending page
IF _pageno > _pepage
   GOTO BOTTOM
   SKIP
   gn_level=0
ENDIF
IF .NOT. gl_plain .AND. gl_fandl
   DO Pghead
ENDIF
IF gn_level = 0 .AND. gl_fandl
   gn_level=1
   DO Grphead
ENDIF
gl_widow=.T.         && enable widow checking
RETURN
* EOP: Pgfoot


*-- Process page break when PLAIN option is used.
PROCEDURE Pgplain
PRIVATE _box
EJECT PAGE
IF gn_level = 0 .AND. gl_fandl
   gn_level=1
   DO Grphead
ENDIF
RETURN
* EOP: Pgplain

*-- Reset dBASE environment prior to calling report
PROCEDURE Reset
SET SPACE &gc_space.
SET TALK &gc_talk.
ON ESCAPE
ON PAGE
RETURN
* EOP: Reset